-- card: 9537 from stack: in
-- bmap block id: 10919
-- flags: 0000
-- background id: 6859
-- name: Conjunct
----- HyperTalk script -----
on openCard
  put line 1 of cd fld date into line 2 of cd fld date
  put the date into line 1 of cd fld date
  if line 1 of cd fld date ≠ line 2 of cd fld date then conj
  pass openCard
end openCard

on conj
  hide message box
  global ra,dec,planet
  put empty into ra
  put empty into dec
  put "Moon,Mercury,Venus,Mars,Jupiter,Saturn,Uranus,Neptune" into planet
  put 2 into c1
  put cd fld threshhold into thresh
  put 0 into k
  put empty into cd fld conj
  put c1+8 into c2
  put c1 into j
  repeat with i=c1 to c2
    set cursor to busy
    if i=3 then next repeat
    put line 5 of fld Pos of cd i into item j-c1+1 of ra
    put line 6 of fld Pos of cd i into item j-c1+1 of dec
    add 1 to j
  end repeat
  put number of items of ra into nra
  repeat with i=1 to nra-1
    repeat with j=i+1 to nra
      get sqrt((item i of ra - item j of ra)^2+ (item i of dec - item j of dec)^2)
      if it<thresh then
        if it<1 then get trunc(it*100)/100
        else
          get trunc(it*10)/10
        end if
        add 1 to k
        set numberFormat to "0.0#"
        put item i of planet &&"and"&& item j of planet && "will be" &&"separated by "&&it&&"degrees." into line k of cd fld conj
        set numberFormat to "0.######"
      end if
      set cursor to busy
    end repeat
  end repeat
  ftype "conj",12
end conj

on enterInField
  conj
end enterInField

on returnInField
  conj
end returnInField



-- part 1 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=356 top=299 right=323 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15026
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Date


-- part 6 (field)
-- low flags: 02
-- high flags: 0000
-- rect: left=361 top=49 right=68 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 15032
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Threshhold


-- part 3 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=29 top=77 right=297 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15032
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: conj


-- part 16 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=471 top=148 right=185 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 26516 / 26516
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: conj
----- HyperTalk script -----
on mouseUp
  conj
end mouseUp



-- part contents for card part 1
----- text -----
4/21/90
4/11/90

-- part contents for background part 11
----- text -----
Sidereal Time = 5:21
5.358495

-- part contents for background part 12
----- text -----
Universal Time = 20:58
20.97

-- part contents for card part 6
----- text -----
10

-- part contents for card part 3
----- text -----
Moon and Venus will be separated by  3.4 degrees.
Uranus and Neptune will be separated by  5.5 degrees.